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SUBROUTINE  IDENTinCATION 

A.  Name:  Read  Bird  Buffer  1604  Transfer  Tape  -  (SRDTRK)  IdeQt  R36 

Mod  AC 

B.  Author:  R.  C.  Wiae^  System  Development  Corporation  -  18  January  1963 


PURPOSE 

The  function  of  SRDTRK  is  to  read  specific  information  from  the  160A-1604 
transfer  tape.  The  specific  information  is  Tracking  messages,  or  Vehicle 
time  messages,  or  both  types  of  messages  and  is  related  to  a  particular 
station,  vehicle,  and  revolution. 

USAGE 


Calling  Sequence 

1. 

L 

RTJ 

SRDTRK 

(calling  sequence  one) 

F 

I 

I/fl 

S 

V 

R 

l/f2 

ERROR  RETURN 

Lf3 

N(»MAL  RETURN 

2. 

L 

RTJ 

SRDTRK 

(calling  sequence  two) 

F 

I 

Lfl 

ERROR 

RETURN 

Lf2 

)K)RMAL  RETURN 

B.  Input  Parameters 

The  input  parameters  to  SRDTRK  are  as  follows: 

F  Function  defines  the  operation  of  SRDTRK.  "F"  is  in  the  lower 
opn  field  of  word  L. 

The  values  and  meanings  of  "F": 
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Value  Meanlna 

0  Find  the  file  defined  by  "S",  "V",  "R"  and  read 

the  header  into  "I".  If  "R"  is  zero,  find  the 
next  file  of  "V". 

1  Read  the  next  Tracking  message  of  the  present 
file  into  "I". 

2  Read  the  next  Vehicle  Time  message  of  present 
file  into  "I". 

3  Read  the  next  message  of  present  file  into  "I". 

4  Position  the  tape  to  end  of  data. 

1  Input  buffer  specifies  the  starting  location  of  the  users  input 
area.  "I"  is  in  the  lower  address  of  word  L. 

The  "S",  "V",  "R"  parameters  are  used  only  with  an  "F"  parasMter 
of  zero. 

£  Site  code  is  the  binary  site  number  and  is  in  the  upper  opn  field 
of  word  I/fl. 

V  Vehicle  number  is  the  4  bit,  BCD  Vehicle  Number  and  is  in  the  upper 
B-term  and  M-term  fields  (18  bits)  of  I/fl. 

R  Revolution  Number  is  the  4  bit,  BCD  Revolution  Number  in  tenths 
of  a  revolution  and  is  in  the  lower  instruction  step  (24  bits)  of 

Lrfl. 


C.  The  Bird  Buffer  to  1604  Transfer  Tape 

The  transfer  tape  is  a  multi-file  binary  tape. 

Each  file  consists  of  tracking  and/or  vehicle  time  messages,  each 
message  being  an  eight  word  record. 


12  March  1963 


3 


TM-(L) -715/042/00 


Each  file  pertains  to  a  specific  vehicle,  station,  and  revolution 
and  is  begun  with  a  header  record  specifying  these  parameters. 

D.  Output  Parameters 

SRDTRK  returns  to  the  user  program  with  the  error  codes  in  the  Q- 
register  or  normal  codes  in  the  A-register. 

1.  Error  Codes 

Q  »  -2  read  length  error 

Q  •  -1  read  parity  error 

Q  »  1  cannot  find  data  requested 

2.  Normal  Codes 

A  -  0 
A  «  1 
A  -  2 

E.  Tape  Assignment 
SRDTRK  uses  tape  19,  unit  4,  cabinet  2  channel  5/6  for  the  Bird  Buffer 
to  1604  Transfer  Tape. 

OPERATING  DESCRIPTION 

SRDTRK  is  initially  entered  by  the  user  program  with  calling  sequence 
one  and  an  "F"  (function)  parameter  of  aero.  SRDTRK  will  search  the 
transfer  tape  for  a  file  with  a  header  record  that  ccmtains  matching 
information  for  the  (station),  "V"  (vehicle),  and  “R**  (revolution 
number)  parameters.  If  "R'*  is  sero,  the  match  is  atteevted  with  only. 


message  read 
header  read 

no  more  data  (EOF  found) 
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If  the  tape  is  positioned  at  the  end  of  all  data^  it  will  rewind  to  the 

first  file  of  data  before  any  operation  is  begun. 

• 

The  header  record  is  read  into  the  input  buffer  specified  by  the  "I" 

(input  buffer)  parameter  and  SRDTRK  returns  to  the  user  program  at  I/f3 
with  the  A-register  set  to  plus  one. 

Three  errors  could  occur  during  the  initial  operation  of  SRDTRK;  a 
persistent  read  length  error,  a  persistent  parity  error,  or  the  data 
requested  could  not  be  found.  If  an  error  does  occur,  an  exit  is  made 
to  lf¥2  of  the  user  program  with  an  error  flag  in  the  Q-register. 

Subsequent  entries  to  SRDTRK  are  made  by  the  user  program  with  calling 
sequence  two.  SRDTRK  will  read  a  record  of  the  type  requested  by  the  "F" 
parameter.  If  an  end  of  file  is  encountered  while  reading,  a  flag  is  set 
in  the  A-register  an  an  exit  is  made  to  1A2  of  the  user  program.  A 
successful  read  also  returns  to  l/f2  in  the  user  program  with  a  flag  in  the 
A-register. 

Error  returns  are  made  for  persistent  read  length  or  parity  errors. 

The  final  entrance  to  SRDTRK  must  be  made  with  calling  sequence  two  and 
an  ''F"  parameter  of  4.  This  causes  SRDTRK  to  position  the  tape  to  the 
end  of  data  and  release  the  interrupt  disable  which  is  set  the  first  time 


SRDTRK  is  entered. 


( 
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RESTRICTIONS 

A.  Function  4  must  be  used, 

B.  Interrupt  Is  disabled  and  enabled  by  SRDTRK 

C.  TAPE  Is  used. 

D.  The  Bird  Buffer  to  1604  Transfer  tape  must  be  mounted  on  unit  19. 

TIMING 

SRDTRK  Is  dependent  upon  the  timing  of  the  1607. 

STORAGE 

160g  cells 

TRANSFER  FUNCTKW 

Area  Operation 

SRDTRK  Disable  Interrupt 

Set  up  exit 

Is  the  tape  at  end  of  data? 

Yes  *  Co  To  TESTAl 
No  -  Continue 

SI  GET  Function  parameter 

If  "F"  equal  4,  go  to  POSEND 
If  "F"  equal  0,  go  to  RDl 

Set  up  switch  to  read  proper  smssage  tape. 

Activate  tape  checks. 

Go  to  RD2. 

ROl  Set  up  paraawters  for  search  of  proper  header. 

Suppress  tape  checks. 

RD2  If  EOF,  go  to  TESTA.  Read  one  8  word  record.  If 

looking  for  a  aesaage,  to  ISSS. 
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Area 


ROA 


EXIT 

OUT 

TESTA 


TESTAl 

TESTS 

MESS 


Operation 
Is  this  a  header? 

Yes  -  go  to  RD4 
No  -  go  to  PFILE 

Do  all  parameters  match  with  header? 

No  -  go  to  PFILE 
Yes  -  continue 

If  any  tape  errors,  go  to  OUT. 

Set  exit  for  normal  return 

Exit  to  user 

Looking  for  message? 

Yes  -  tape  "no  more  data  exit" 

No  -  continue 

If  this  a  double  EOF? 

No  -  go  to  RD2 
Yes  -  continue 

Was  tape  at  load  point  or  is  "R"  zero? 
Yes  -  take  "cannot  find  data"  exit. 
No  -  go  to  TESTAl 
go  to  RD2. 

Rewind  tape  (TESTS) 

Rewind  tape 

Is  this  a  header? 

Yes  -  take  header  found  exit 
No  •  ccmtinue 

Is  this  the  type  of  message  requested? 
Yes  •  go  to  EXIT 
No  -  go  to  ltD2. 
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Area 

PFILE 


POSEND 


P2  Read  1  record 

Is  it  an  EOF? 

Yea  -  go  to  POSEND 
No  •  go  to  P2 

P3  Set  end  of  data  flag. 

P4  Tape  good  exit 

VALIDATION  TEST 
A.  Method 

An  ordered  simulated  transfer  tape  (CPDG  S-422)  containing  3  messages 
per  revolution^  3  revolutions  per  site^  2  sites  per  vehicle^  an^  2 
vehicles  is  operated  upon  by  SRDTRK.  The  "V",  "S",  and  "R"  may  be 
octal  corrections  to  the  test  deck. 

A  driver  requests  the  following  of  SRDTRK. 

1.  Position  to  file  defined  by  $2$ 

2.  Read  all  tracking  messages  (one  at  a  time), 

3.  Position  to  file  defined  by  ^2$  S^,  R^. 

4.  Read  all  time  messages  (one  at  a  time). 

5.  Position  to  file  defined  by  V^^  ^2^^' 

6.  Read  all  messages. 


Operation 

Read  1  record. 

Is  it  an  EOF? 

Yes  -  go  to  RD2 
No  -  go  to  PFILE 

Read  1  record 
Is  it  an  EOF? 

Yes  *  go  to  P3. 
No  -  go  to  P2. 


( 
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7.  Position  to  file  defined  by  V  1 

8.  Read  one  tracking  message. 

9.  Position  to  file  defined  by  V2> 

10.  Position  to  end  of  data. 

All  records  read  are  printed  on-line,  and  the  listing  is  compared 
against  the  requested  data. 

B.  Results 

The  messages  were  read  as  requested. 

REFERENCES 

TM-891/001/00,  Combined  Milestone  3/4  for  the  1604  Augmentation 
Communication  Programs,  System  Development  Corporation,  20  December  1962. 
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